老师按扭导出 能直接将表属性公式和导出两个公式合并成一个公式吗?由代码直接生成,目前发现字符串列是个过度列,可以省略这列,该如何改?
If e.DataCol.Name = "代码" Then
If e.NewValue = Nothing Then
e.DataRow("字符串") = Nothing
Else
Dim str As String = ""
If e.NewValue.startswith("6") Then
str &= "1|"
Else
str &= "0|"
End If
str &= e.NewValue & "|" & "12|"& Format(Date.Today, "MM月dd日Ⅰ+") & "|0.000"
e.DataRow("字符串") = str
If e.DataTable.Find("代码 = '" & e.NewValue & "' and id <> '" & e.DataRow("ID") & "'") IsNot Nothing Then
e.DataRow("关注") = e.NewValue
Else
e.DataRow("关注") = Nothing
End If
End If
End If
Dim str As String = ""
For Each dr As DataRow In DataTables("主题").DataRows
str &= dr("字符串") & vbcrlf
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.Default)
[此贴子已经被作者于2015/8/13 22:59:19编辑过]