共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：关于自定义函数中的行
1楼
pyh6918 发表于：2025/2/26 18:45:00dim zzy as row = Tables("专业").Current
Dim zzh As Row = Tables("报告").AddNew
Functions.Execute("顺序","zzy","zzh")
顺序函数如下：
If args(0)("批次") = "本科" Then
args(1)("批次顺序")=200
ElseIf args(0)("批次") = "专科" Then
args(1)("批次顺序")=400
Else
args(1)("批次顺序")=1000
End If
错误所在事件：自定义函数顺序
详细错误信息：
调用的目标发生了异常。
从字符串“批次”到类型“Integer”的转换无效。
输入字符串的格式不正确。
请问怎么修改自定义函数？谢谢！！
2楼
y2287958 发表于：2025/2/27 8:05:00从字符串“批次”到类型“Integer”的转换无效
赋值与列类型不相符
3楼
pyh6918 发表于：2025/2/27 8:39:00怎么改才能相符？
4楼
有点蓝 发表于：2025/2/27 8:49:00批次列是什么列类型？
试试
dim zzy as row = Tables("专业").Currentif zzy isnot nothing
Dim zzh As Row = Tables("报告").AddNew
Functions.Execute("顺序","zzy","zzh")
endif
函数
dim zzy as row = args(0)
Dim zzh As Row = args(1)
If zzy("批次") = "本科" Then
zzh("批次顺序")=200
ElseIf zzy("批次") = "专科" Then
zzh("批次顺序")=400
Else
zzh("批次顺序")=1000
End If
5楼
pyh6918 发表于：2025/2/27 8:59:00批次列是字符型，批次顺序是整数型 |
按您的方法改后出现下面的错误提示：
无法将类型为“System.String”的对象强制转换为类型“Foxtable.Row”。
6楼
有点蓝 发表于：2025/2/27 9:07:00Functions.Execute("顺序",zzy,zzh)
7楼
pyh6918 发表于：2025/2/27 9:20:00多谢蓝版！可以了，原来是不用加引号
共7 条记录, 每页显示 10 条, 页签:
[1]