If Tables("Bill2").Current IsNot Nothing Then
If vars("FrmNameSW")="BOM建立" And vars("FrmName")="Bill2" And Tables("Bill2").Current("ParentItem") > "" And CBAddVar.checked=True
Tables("Bill2").addnew
End If
End If
If Tables("Co2").Current IsNot Nothing Then
If vars("FrmName")="co2" And Tables("Co2").Current("Item") > "" And CBAddVar.checked=True
Tables("Co2").addnew
End If
End If