筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

PrepareEdit

If e.IsFocusCell Then

If e.Col.Name = "编制人等级" Then

e.Col.Combolist = DataTables("无损及理化人员资质清单").GetComboListString("资质等级", "[姓名] = '" & e.Row("编制人") & "' And [资质] = '" & e.Row("编制人资质") & "'")

End If

keydown事件增加以下代码后，上述代码就无法实现了，要怎么改？

If e.keycode = keys.enter Then

If e.Table.cols(e.Table.colsel).name = "备注" Then

Dim cr As Row = e.Table.rows(e.Table.position)

Dim nr As Row = e.Table.addnew

nr("零部件编号") = cr("零部件编号")

nr("生产令号") = cr("生产令号")

nr("项目名称") = cr("项目名称")

nr("机组") = cr("机组")

nr("零部件名称") = cr("零部件名称")

nr("零部件图号") = cr("零部件图号")

nr("材质") = cr("材质")

nr("规格") = cr("规格")

nr("炉批号") = cr("炉批号")

nr("焊缝编号") = cr("焊缝编号")

nr("检验部位") = cr("检验部位")

nr("表面状态") = cr("表面状态")

nr("检验时机") = cr("检验时机")

nr("检验规范及版本") = cr("检验规范及版本")

nr.move(cr.index+1)

e.cancel = True

End If

实例发上来测试

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产采购管理系统.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产采购管理系统.rar

823148

PT报告

测试没问题啊。

只要满足红色条件都会下拉显示啊。

If e.IsFocusCell Then

If e.Col.Name = "编制人等级" Then

e.Col.Combolist = DataTables("无损及理化人员资质清单").GetComboListString("资质等级", "[姓名] = '" & e.Row("编制人") & "' And [资质] = '" & e.Row("编制人资质") & "'")

End If

End

另外项目中，表预算清单里编号为WZ-FJ-201905-026的预算生成报表——生产性材料预算，生成的报表顺序与表物资采购明细中的序号顺序不一致，是什么情况？

例如生产的报表中序号12手拉葫芦，在表物资采购明细中编制的序号明明是1

使用的什么报表？execl报表？把模板发上来看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qr74-006生产性材料预算清单（单页）.xls

如：

<物资采购明细表,序号,-15>

主题：筛选