Foxtable(狐表)用户栏目专家坐堂 → 窗口table表数据定位显示


  共有2324人关注过本帖树形打印复制链接

主题:窗口table表数据定位显示

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:453 积分:3683 威望:0 精华:0 注册:2020/2/8 11:14:00
窗口table表数据定位显示  发帖心情 Post By:2020/7/27 9:31:00 [只看该作者]

老师您好!

  我设计了一个窗口打印模块:名叫工艺流程卡,窗口中绑定了订单表(ddpsb)和明细表(ddqdb),两个表用zzh建立了关联,想在此窗口中显示或打印明细表时需要用户选择,从第几行到第几行。我写的代码只能显示明细表所有符合zzh的行,显示用户输入的从第几行到第几行的代码,就不会写了。(比如,我选中了订单表中的某一zzh,在明细表中了15条记录,这15条记录在窗口中不一次显示或打印,想让用户自行输入从第几行到第几行的显示或打印。我加了两个文本框:textbox8textbox9用于用户随时输入。)我的不完整代码如下(我的设计界面用截图附件上传):Dim zzh As String=Tables("ddqdb").current("zzh")

Dim mc As String=Tables("ddqdb").current("产品类型")

Dim dt1 as winform.textbox

Dt1=e.form.ccontrols(textbox8)

Dim dt2 as winform.textbox

Dt2=e.form.ccontrols(textbox9)

Tables("加工工艺流程卡_Table1").DataTable.LoadFilter ="[zzh] ='" & zzh & "'And [产品类型]='" & mc & "'"

Dim cnt As Integer=Tables("加工工艺流程卡_Table1").Rows.count  '统计符合条件的行数

Dim x As Integer=dt2-dt1+1    '计算需要显示/打印的行数


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107757 积分:548124 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/27 9:40:00 [只看该作者]

Dim zzh As String=Tables("ddqdb").current("zzh")

Dim mc As String=Tables("ddqdb").current("产品类型")

dim Dt1 as integer=val(e.form.ccontrols(textbox8).text)

dim Dt2 as integer=val(e.form.ccontrols(textbox9).text)

Tables("加工工艺流程卡_Table1").DataTable.LoadFilter ="[zzh] ='" & zzh & "'And [产品类型]='" & mc & "'"

Tables("加工工艺流程卡_Table1").DataTable.Load

for i as integer = Tables("加工工艺流程卡_Table1").Rows.count-1 to 0 step -1  '统计符合条件的行数

if i > Dt2 orelse i < dt1 then 

Tables("加工工艺流程卡_Table1").Rows(i).remove

next

next



 回到顶部