[已解决]凭证查询求助

chenkaifan · 发表于 2017-7-4 16:50

chenkaifan · 发表于 2017-7-11 15:55

高手位就帮帮忙吧！！！

chenkaifan · 发表于 2017-7-14 10:38

苏子龙发表于 2017-6-30 16:39
Sh.Range("H2") = IIf(rs.PageCount > 1, ComBox2.Text & "(" & ComBox3.ListIndex + 1 & "/" & rs.Page ...

能否麻烦你帮助把查询附件也加进去，谢谢！

苏子龙 · 发表于 2017-7-14 22:51

Sh.Range("C2") = Format(t, "yyyy-mm-dd")
Sh.Range("H2") = IIf(rs.PageCount > 1, "第" & ComBox2.Text & "(" & ComBox3.ListIndex + 1 & "/" & rs.PageCount & ") 号", "第" & ComBox2.Text & "号")
Sh.Range("J6") = ComBox3.ListIndex + 1

chenkaifan · 发表于 2017-7-15 16:22

苏子龙发表于 2017-7-14 22:51
Sh.Range("C2") = Format(t, "yyyy-mm-dd")
Sh.Range("H2") = IIf(rs.PageCount > 1, "第" & ComBox2 ...

首先再次感谢你在百忙中抽出时间来对我的帮助，但提取到的数据是分页号了，而不是“数据库”V列中的凭证张数，你有空时能不能再麻烦你帮助修改下。谢谢！

苏子龙 · 发表于 2017-7-15 16:58

已改，觉得好，就给个最佳吧。

苏子龙 · 发表于 2017-7-15 17:02

如果要成大写则 Sh.Range("J6") = Application.Text(FuJian, "[dbnum2]")加个text函数，另单元格设定成竖排！

chenkaifan · 发表于 2017-7-15 19:27

苏子龙发表于 2017-7-15 17:02
如果要成大写则 Sh.Range("J6") = Application.Text(FuJian, "[dbnum2]")加个text函数，另单元格设定成竖排 ...

谢谢！！！谢谢！！！谢谢！！！

		自动登录	找回密码
密码			注册

[已解决]凭证查询求助

评分