[EMADSSS]

(31-03-20, 06:19 AM)حريف برمجة كتب :

كود :

For Each s As String In TextBox9.Text
    s = Regex.Replace(s, "[أإآا]", "[أإآا]")
    s = Regex.Replace(s, "[هة]", "[هة]")
    s = Regex.Replace(s, "[ىي]", "[ىي]")
    s = Regex.Replace(s, "[وؤ]", "[وؤ]")
  txt &= s
BindingSource2.Filter = "Name like '%" & txt & "%'"
Next

اخي الكريم الكود لايعمل لا اعرف السبب يعطي خطا تحت كلمة

كود :

Regex