以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙看下代码错误》？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88228)
--  作者：527383691
--  发布时间：2016/7/29 13:17:00
--  [求助]帮忙看下代码错误》？

If e.DataCol.Name = "样品图片" Then
Dim N As Integer=e.DataRow("编号")
Dim N1 As Integer=4*n-3
Dim N2 As Integer=4*n-2
Dim EEEE As  New  List(of  String)
EEEE= e.DataRow.LINES("样品图片").
e.DataRow("样品接受状态")=EEEE(N1)
End If

 

 

 

【样品接受状态】这列没有被赋予值啊

谢谢~大神

[此贴子已经被作者于2016/7/29 13:31:31编辑过]
--  作者：Hyphen
--  发布时间：2016/7/29 14:20:00
--  
If e.DataCol.Name = "样品图片" Then
Dim N As Integer=e.DataRow("编号")
Dim N1 As Integer=4*n-3
Dim N2 As Integer=4*n-2
Dim EEEE As  New  List(of  String)
EEEE= e.DataRow.LINES("样品图片")
msgbox(EEEE(N1)) \'看看弹出什么内容
e.DataRow("样品接受状态")=EEEE(N1)
End If
--  作者：527383691
--  发布时间：2016/7/29 15:10:00
--  

什么都没有弹出
--  作者：527383691
--  发布时间：2016/7/29 15:33:00
--  

在命令窗口里面运行

Dim N As Integer=1
Dim N1 As Integer=4*n-3
Dim N2 As Integer=4*n-2
Dim EEEE As  New  List(of  String)
EEEE= DataTables("A").DataRows(0).LINES("样品图片")
msgbox(EEEE(N1)) \'看看弹出什么内容
DataTables("A").DataRows(0).LINES("样品接受状态")=EEEE(N1)

 

 

弹出Value of type "string" cannot be converted to \'system.collecction.generic.list(of  string)\'

代码是DataTables("A").DataRows(0).LINES("样品接受状态")=EEEE(N1)

 

要怎么解决？
--  作者：狐狸爸爸
--  发布时间：2016/7/29 16:53:00
--  

Dim N As Integer=1
Dim N1 As Integer=4*n-3
Dim N2 As Integer=4*n-2
Dim EEEE As  New  List(of  String)
EEEE= DataTables("A").DataRows(0).LINES("样品图片")
DataTables("A").DataRows(0)("样品接受状态")=EEEE(N1)

[此贴子已经被作者于2016/7/29 16:53:03编辑过]
--  作者：527383691
--  发布时间：2016/7/29 17:42:00
--  

谢谢~

 

那为啥子这个代码不能在【样品接受状态】列生成值呢？

If e.DataCol.Name = "样品图片" Then
    Dim WE As Integer=e.DataRow("编号")
    Dim N1 As Integer=4*WE-3
    Dim N2 As Integer=4*WE-2
    Dim EEEE As  New  List(of  String)
   EEEE=E.DataRow.Lines("样品图片")
    e.DataRow("样品接受状态")=EEEE(N1)
End If
--  作者：Hyphen
--  发布时间：2016/7/30 9:37:00
--  
回复3楼，如果什么都没有弹出，说明这行"样品图片"没有这个值，用下面代码看看。

msgbox(N1)
for each s as string in EEEE
msgbox(s)
next

不行就上传例子吧