- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]转换编码报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177838)
-- 发布时间：2022/6/7 8:45:00
-- [求助]转换编码报错
老师我这编码有时候报错，大部分不出错。找了很久没找到什么原因。
此主题相关图片如下：001.jpg
-- 发布时间：2022/6/7 8:47:00
--
调试看哪一句代码出错：http://www.foxtable.com/webhelp/topics/1485.htm
-- 发布时间：2022/6/7 8:54:00
-- 回复：（有点蓝）调试看哪一句代码出错：http://www.f...
是这个，我找来找去没发现
------------------------------------
DataColChanged
\'\'工序编号
Select e.DataCol.Name
Case "物料_工序_名称"
If e.DataRow.IsNull("物料_工序_名称") Then
e.DataRow("物料_工序_编码") = Nothing
Else
Dim dr As DataRow = DataTables("工序编码").find("物料_工序_名称=\'" & e.DataRow("物料_工序_名称") & "\'")
If dr IsNot Nothing Then
If CStr(e.DataRow("物料_工序_编码")).StartsWith(dr("物料_工序_编码")) = False Then\'如果单据自动编码前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(物料_工序_编码)", "物料_工序_名称 = \'" & e.DataRow("物料_工序_名称") & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大自动编码
If max > "" Then \'如果存在最大自动编码
idx = CInt(max.Substring(1)) + 1 \'获得最大自动编码的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("物料_工序_编码") = dr("物料_工序_编码") & e.DataRow("物料编号")
End If
End If
End If
End Select
-- 发布时间：2022/6/7 8:55:00
--
物料_工序_编码，请改为字符型。
-- 发布时间：2022/6/7 9:16:00
--
看不懂这个代码，生成"物料_工序_编码"的规则是什么？看代码似乎和最大的"物料_工序_编码"没有什么关系
-- 发布时间：2022/6/7 10:08:00
-- 回复：（有点蓝）看不懂这个代码，生成"物料_工序_编码...
StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行，共" & e.Table.Rows.Count & "行"
这个是整个项目状态栏·
此主题相关图片如下：001.jpg
请问老师··我要写到窗口·这种状态栏代码要放在哪。
AfterLoad 里面不让放
-- 发布时间：2022/6/7 10:12:00
--
StatusBar.Message1 = "第" & (currenttable.Position + 1) & "行，共" & currenttable.Rows.Count & "行" |
-- 发布时间：2022/6/7 10:26:00
-- 回复：（有点蓝）StatusBar.Message1 = "第"&nbs...
蓝老师，是这菜单编辑器的·状态栏·
此主题相关图片如下：001.jpg
-- 发布时间：2022/6/7 10:57:00
--
参考：http://www.foxtable.com/webhelp/topics/3118.htm
e.Form.Strips("状态栏").Items("User").Text = "第" & (currenttable.Position + 1) & "行，共" & currenttable.Rows.Count & "行"