主题：如何不加载数据时，外部表能自动跟新年龄

1、年龄列不需要实时更新吧？这样很滥发资源的；

2、可以直接写sql语句， up date 客户信息表 set 年龄 = DateDiff(yyyy, 出生日期, GetDate())

Dim f1 As String = "[sys_user]='" & e.DataRow("sys_user") & "' and [日龄]>='" & e.DataRow("肉猪日龄_低") & "' and [日龄]<='" & e.DataRow("肉猪日龄_高") & "'"

Dim drs As List(Of DataRow) = DataTables("肉猪信息").sqlselect(f1)
Dim count As Integer = 0
Dim ls As New List(Of Integer)
Dim max As Integer
If drs.Count > 20 Then
   
    max = 20
   
Else
   
    max = drs.count
   
End If

Do While count < max
    Dim rnd As Integer = Rand.Next(drs.Count-1)
    If ls.Contains(rnd) = False Then
        count += 1
        drs(rnd)("栋舍") = e.DataRow("原栋舍")
        drs(rnd).save
    End If
Loop