| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口table表数据定位显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152947) |
|
| -- 作者：朱女士 -- 发布时间：2020/7/27 9:31:00 -- 窗口table表数据定位显示 老师您好！ 我设计了一个窗口打印模块：名叫工艺流程卡，窗口中绑定了订单表（ddpsb）和明细表(ddqdb)，两个表用zzh建立了关联，想在此窗口中显示或打印明细表时需要用户选择，从第几行到第几行。我写的代码只能显示明细表所有符合zzh的行，显示用户输入的从第几行到第几行的代码，就不会写了。（比如，我选中了订单表中的某一zzh，在明细表中了15条记录，这15条记录在窗口中不一次显示或打印，想让用户自行输入从第几行到第几行的显示或打印。我加了两个文本框：textbox8和textbox9用于用户随时输入。）我的不完整代码如下(我的设计界面用截图附件上传）：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 \'计算需要显示/打印的行数 |
|
| -- 作者：有点蓝 -- 发布时间：2020/7/27 9:40:00 --
|