Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
呵呵,可以在表中某个位置保存上次的日期,打开的时候读取该日期和系统日期进行比较即可。
也可以用文本文件保存上次的日期。
不要急着解决这些具体的问题,磨刀不误砍材工,先看帮助,一些问题就水到渠成地解决了。
If e.DataCol.Name = "姓名" Then
If e.DataRow.IsNull("姓名")
e.DataRow("xmjm") = Nothing
e.DataRow("姓名简码") = Nothing
Else
Dim a As String
Dim b As String = GetPY(e.DataRow("姓名"))
For i As Integer = 0 To b.Length - 1
If i = 0 OrElse b.Chars(i - 1) = " " Then
a = a & b.Chars(i)
End If
Next
e.DataRow("xmjm") = b
e.DataRow("姓名简码") = a.ToUpper
End If
End If
好家伙,仅仅一个姓名简码就要写出这么复杂的语句,我开始怀疑自己能不能学会Foxtable。
好家伙,仅仅一个姓名简码就要写出这么复杂的语句,我开始怀疑自己能不能学会Foxtable。
完全可以,不要考虑这种代码,这是老鸟的事。
getpy是小学水平。