Sub GestionImpressionCarnet(Optional p_s_refOF As Variant, Optional p_s_refRadeau As Variant)Dim l_s_mess As String
Dim l_s_sql As String
Dim l_re As New adodb.RecordsetOn Error GoTo GestionImpressionCarnet_errl_s_sql = "SELECT * FROM T_RADEAUX WHERE "
If (Not IsMissing(p_s_refRadeau)) Then
l_s_sql = l_s_sql & "C_NumRadeaux=" & TextSQL(p_s_refRadeau) & " "
Else 'Chercher tous les radeaux qui appartiennent ?cet OF pliage
l_s_sql = l_s_sql & "C_NumOFPliage=" & TextSQL(p_s_refOF) & " AND C_Carnet <2 "
l_s_sql = l_s_sql & "ORDER BY C_IdOrdre "
End If
l_re.Open l_s_sql, g_db_new, adOpenDynamic, adLockPessimistic
'Sil n'y a pas d'enregistrement
If l_re.EOF Then
'Le dire
MsgBox "Il n'y a pas de radeaux dont le carnet doit 阾re imprim?End If
上述的VB 代码 从第一行开始,方法里用这个 Optional p_s_refOF As Variant 在C#里 可以用public interface CarnetVar {
public <type> GetData();
}private void GestionImpressionCarnet(CarnetVar toto);
来实现,。。但是我不明白。可以给我举个例子讲讲吗
还有上面那个连接数据库,我改成C#时,是应该怎么做呢。
还有这个l_re.EOF 我不知道在C#里怎么改了。
总之就是要c#写出上述代码。 麻烦各位高手讲解一下
Dim l_s_sql As String
Dim l_re As New adodb.RecordsetOn Error GoTo GestionImpressionCarnet_errl_s_sql = "SELECT * FROM T_RADEAUX WHERE "
If (Not IsMissing(p_s_refRadeau)) Then
l_s_sql = l_s_sql & "C_NumRadeaux=" & TextSQL(p_s_refRadeau) & " "
Else 'Chercher tous les radeaux qui appartiennent ?cet OF pliage
l_s_sql = l_s_sql & "C_NumOFPliage=" & TextSQL(p_s_refOF) & " AND C_Carnet <2 "
l_s_sql = l_s_sql & "ORDER BY C_IdOrdre "
End If
l_re.Open l_s_sql, g_db_new, adOpenDynamic, adLockPessimistic
'Sil n'y a pas d'enregistrement
If l_re.EOF Then
'Le dire
MsgBox "Il n'y a pas de radeaux dont le carnet doit 阾re imprim?End If
上述的VB 代码 从第一行开始,方法里用这个 Optional p_s_refOF As Variant 在C#里 可以用public interface CarnetVar {
public <type> GetData();
}private void GestionImpressionCarnet(CarnetVar toto);
来实现,。。但是我不明白。可以给我举个例子讲讲吗
还有上面那个连接数据库,我改成C#时,是应该怎么做呢。
还有这个l_re.EOF 我不知道在C#里怎么改了。
总之就是要c#写出上述代码。 麻烦各位高手讲解一下
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货