你好,请将Form_Activate()事件中
Adodc1.RecordSource = "select * from tb_tfd where tb_tfd.BZ > " + Str(G1.Text) + " and tb_tfd.BZ < " + Str(G2.Text) + " order by 凭证号码"
改成:
Adodc1.RecordSource = "select * from tb_tfd where tb_tfd.BZ > " + G1.Text + " and tb_tfd.BZ < " + G2.Text + " order by 凭证号码"