以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  变量  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185146)
--  作者：朱女士
--  发布时间：2023/2/7 16:04:00
--  变量
老师您好！
   我的变量引用出错了呢，就是绿颜色这句，谢谢指导！
 dim i, j As Integer
Dim s1 As String = "件数" 
Dim s2 As String = "重量" 
Dim s3 As String = "耗时"

For i = 1 To dds
    For j = 1 To 3
        Dim v As String = trim(Str(j))
        Dim dr As DataRow = DataTables("选员工工时日记表").AddNew()
\'     dr("内容") = s & v
    Next 
Next
--  作者：有点蓝
--  发布时间：2023/2/7 16:05:00
--  
这个代码想要做什么？
--  作者：朱女士
--  发布时间：2023/2/7 16:12:00
--  

当j=1 时，表中这行的内容里填充 s1的值“件数”
当j=2 时，表中这行的内容里填充 s2的值“重量”
当j=3 时，表中这行的内容里填充 s3的值“耗时”。
--  作者：有点蓝
--  发布时间：2023/2/7 16:30:00
--  
dim s1() as string = {“件数”,“重量”,“耗时”}

    For j = 1 To 3
        Dim dr As DataRow = DataTables("选员工工时日记表").AddNew()
\'     dr("内容") = s1(j-1)
    Next