主题：[求助]求关联表数据删除代码

参考代码

Dim dt1 As DataTable = DataTables("股金信息")
Dim dt2 As DataTable = DataTables("股金数据")
Dim zhs As String = dt2.GetComboListString("f_zh", "f_lb = '销户' and f_nh < '" & Date.today.year & "'")
msgbox(zhs)
zhs = zhs.replace("|", "','")
dt1.deletefor("f_zh in ('" & zhs & "')")