主题：[求助]公式怎么写

老师按扭导出 能直接将表属性公式和导出两个公式合并成一个公式吗?由代码直接生成,目前发现字符串列是个过度列,可以省略这列,该如何改?

 

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)

 

Dim str As String = ""
For Each dr As DataRow In DataTables("主题").DataRows
   
    If dr.IsNull("代码") Then
        str &= vbcrlf
    Else
        If dr("代码").startswith("6") Then
            str &= "1|"
        Else
            str &= "0|"
        End If
        str &= dr("代码") & "|" & "12|"&  Format(Date.Today, "MM月dd日Ⅰ+") & "|0.000" & vbcrlf
    End If
Next
FileSys.WriteAllText("e:\投资\extern_user.txt",str, False, Encoding.Default)

添加代码遇到前面有的将日期串联起来,如同说明一样的操作,能实现吗?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:投资.table

If e.DataCol.Name = "字符串" Then
    e.DataRow("说明") = e.DataTable.GetComboListString("字符串", "代码 = '" & e.DataRow("代码") & "'", "字符串").Replace("|", "+")
End If

老师这个不能用,表属性没反应,按钮也不能用,怎么操作?你可能没明白我的想法

 你修改字符串，就自动变了啊

初学者，先去看一下视频教程 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

我的想法是将前面的改进一下   你修改字符串，就自动变了啊 这个实现了,现在是重的多了以后,能自动加到排在最前面的一行中,因上市股有3000个数据,我不知这个能实现吗?

看57楼，你根本看不懂代码不可能继续下去。