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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

1、参考代码

cmb2.ComboList = DataTables("数据总表").GetComboListString("总码" , "物品类别 = '" & str2 & "' and 某列 = '" & str3 & "'")

http://www.foxtable.com/webhelp/scr/1647.htm

2、编号，参考

http://www.foxtable.com/webhelp/scr/2403.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/1 22:07: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 max As String
Dim idx As Integer
max = DataTables("数据总表").compute(("max(总码)"), "物品类别 = '" & str2 & "' And 库字 = '" & str3 & "'")
msgbox(max)
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(0,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If

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

如果还不行，请上传具体foxtable项目测试

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

不会做，请上传具体项目测试。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/1 23:31: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 max As String
Dim idx As Integer
max = DataTables("数据总表").compute(("max(总码)"), "物品类别 = '" & str2 & "' And 库字 = '" & str3 & "'")
msgbox(max)
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(str2.length+1,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/2 9:02: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 fdr As DataRow = DataTables("辅助信息").find("物品类别 = '" & str2 & "' And 库字 = '" & str3 & "'")
If fdr IsNot Nothing Then
    Dim lb = fdr("总码编号代码")
    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")
End If

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

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