关于录入窗口设计的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于录入窗口设计的问题

共有2156人关注过本帖树形打印复制链接主题：关于录入窗口设计的问题

冰点1976

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

关于录入窗口设计的问题 发帖心情

Post By：2018/4/1 13:47:00 [显示全部帖子]

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Dim str2 As String = e.Form.Controls("ComboBox3").text

cmb2.ComboList = DataTables("数据总表").compute(("max(总码)") , "物品类别 = '" & str2 & "'")

If cmb2.Items.Count = 1 Then

cmb2.Text = cmb2.ComboList

End If

[此贴子已经被作者于2018/4/1 13:48:08编辑过]

冰点1976

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 13:52:00 [显示全部帖子]

编制了一个新增物资录入窗口，已实现总码组合框（ComboBox3），根据物品类别组合框（ComboBox7）内容自动生成当前符合条件的最大值。

我需要让它生成最大值加1，如何修改代码？

如果我需要增加一个条件，即：总码组合框（ComboBox3），不仅仅只是根据物品类别组合框（ComboBox7）内容自动生成，还要根据库字组合框（ComboBox1）的内容进行调整后，最终显示，如何增加代码？请老师赐教。

冰点1976

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 14:06:00 [显示全部帖子]

补充说明：原代码是cmb2.ComboList = DataTables("数据总表").GetComboListString("总码" , "物品类别 = '" & str2 & "'") 没有amp

冰点1976

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 20:45:00 [显示全部帖子]

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Dim str2 As String = e.Form.Controls("ComboBox3").text

Dim str3 As String = e.Form.Controls("ComboBox1").text

Dim lb As String = DataTables("数据总表").GetComboListString("物资分类_总码编制代码")

Dim max As String

Dim idx As Integer

max = DataTables("数据总表").compute(("max(总码)"), "物品类别 = '" & str2 & "' And 库字 = '" & str3 & "'")

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

If cmb2.Items.Count = 1 Then

cmb2.Text = lb & Format(idx,"000")

End If

[此贴子已经被作者于2018/4/1 20:44:51编辑过]

冰点1976

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 20:47:00 [显示全部帖子]

甜老师，最大值+1的代码，我参考你给的提示思考着编的，还有问题，请赐教！

冰点1976

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 21:10:00 [显示全部帖子]

没有 &

冰点1976

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 23:00:00 [显示全部帖子]

编码改成这样：idx = CInt(max.Substring(max.Length - 3)) + 1 '获得最大编号的后三位顺序号,并加1

确实显示了最大值加1，但是只显示了总码的后三位数值，前面如：BHL-等编码缺失。

Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Dim str2 As String = e.Form.Controls("ComboBox3").text

Dim str3 As String = e.Form.Controls("ComboBox1").text

Dim lb As String = DataTables("数据总表").GetComboListString("物资分类_总码编制代码")

Dim max As String

Dim idx As Integer

max = DataTables("数据总表").compute(("max(总码)"), "物品类别 = '" & str2 & "' And 库字 = '" & str3 & "'")

msgbox(max)

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(max.Length - 3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

cmb2.Text = lb & Format(idx,"000")

我又改成这样，还是不对啊？

冰点1976

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 23:11:00 [显示全部帖子]

Dim lb As String = DataTables("数据总表").GetComboListString("物资分类_总码编制代码")

应该错在这个语句上，我再看下帮助，用正确的语句代替。

冰点1976

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 23:28:00 [显示全部帖子]

Dim lb As String = DataTables("数据总表").GetComboListString("物资分类_总码编制代码","[物品类别] = ' & str2 & ' And [库字] = ' & str3 & '")

我又把这句代码修改成这样，窗口总码组合框显示了最大值加1，但还是没有前面的总码编织代码，如：BHL- BJ- QC-等，只有数字显示。

冰点1976

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：366 威望：0 精华：0 注册：2018/3/16 15:08:00

Post By：2018/4/1 23:50:00 [显示全部帖子]

如何上传，我怎么传不到了

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：关于录入窗口设计的问题